﻿Imports System
Imports System.IO
Imports System.Data
Imports System.Data.SqlServerCe
Imports System.Drawing
Imports System.Collections
Imports System.Windows.Forms
Imports System.Data.Common

Module JointTypeDao

    Public Function findJointTypes(ByVal jointTypeName As String) As DataTable
        Dim dtResult As New DataTable
        Dim paramList As New Hashtable()

        Dim SQL As String = "SELECT * FROM eqam_joint_type WHERE 1=1 "

        If (jointTypeName IsNot Nothing And jointTypeName <> "") Then
            SQL = SQL & " AND JOINT_TYPE_NAME = @JOINT_TYPE_NAME"
            paramList.Add("@JOINT_TYPE_NAME", jointTypeName)
        End If

        SQL = SQL & " ORDER BY JOINT_TYPE_NAME "

        Return LoadData(SQL, paramList)

    End Function
End Module
